home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / ADRP.SRC < prev    next >
Text File  |  1990-11-03  |  3KB  |  186 lines
  1. ;\|
  2. ;ADRP.SRC     Translated from ADRP.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;PATLIST  05:50:41 PM   6/ 5/90                    |
  4.     define(PAGE|N|5|0|)
  5.     define(DATE.TIME.FLD|A|46||)
  6.     define(TOT.RECS|N|8|0|)
  7.     define(CHG.TIME|T|8||)
  8.     define(DOC|N|1||)
  9.     define(CHG.DATE|D|10||)
  10.     define(STDDAYS|A|12||)
  11.     define(STDMONTH|A|12||)
  12.     define(STDYEAR|A|6||)
  13.     define(STDAYH|A|4||)
  14.     define(AM.PM|A|2||)
  15.     define(TIME.STRG|A|10||)
  16.     define(PG.STRG|A|5||)
  17.     define(SELECT.FLD.F1|A|22||)
  18.     define(SELECT.FLD.T1|A|22||)
  19.     open(PATIENT||0|EXIT)
  20.     open(RP||0|)
  21.     gosub GET.DATE
  22.     mount(SELECT|S||)
  23.     enter(SELECT.FLD.F1||||||||)
  24.     enter(SELECT.FLD.T1||||||||)
  25.     pchr(P|10)
  26.     pchr(P|11)
  27.     pchr(P|4)
  28.     pchr(P|1)
  29.     trap(P|G|TOF)
  30.     mount(REPORT|R|A|)
  31.     pset(128|66|60)
  32.     trap(I|G|FINI)
  33.     ADDRESS1 = (SELECT.FLD.F1)
  34.     find(G|ADDRESS1|NO.RECS|)
  35. PRT.REC:
  36.     pfmt(6||||)
  37.     gosub RELATED
  38. RD.NEXT:
  39.     find(N|PATIENT |FINI)
  40.     if ADDRESS1 > (SELECT.FLD.T1) goto FINI
  41.     goto PRT.REC
  42. FINI:
  43.     pfmt(5||||)
  44.     pfmt(8||||)
  45.     pblnk(2)
  46.     pfmt(7||||)
  47.     trap(P|D|)
  48.     ptof
  49.     run("recmenu")
  50. TOF:
  51.     PAGE = (PAGE + 1)
  52.     pfmt(1||||)
  53.     pfmt(2||||)
  54.     pfmt(3||||)
  55.     pblnk(1)
  56.     pfmt(4||||)
  57.     pfmt(5||||)
  58.     ret
  59. GET.DATE:
  60.     time(CHG.TIME|G)
  61.     date(CHG.DATE|G)
  62.     AM.PM = ("AM")
  63.     if CHG.TIME > (43199) doO 
  64.         {
  65.         AM.PM = ("PM")
  66.         if CHG.TIME > (46799) then  CHG.TIME = (CHG.TIME - 43200)
  67.         }
  68.     TIME.STRG =mid(CHG.TIME|1|8|)
  69.     STDDAYS =day(CHG.DATE)
  70.     STDMONTH =xmt(CHG.DATE)
  71.     STDAYH =mid(CHG.DATE|4|2|)
  72.     STDYEAR =mid(CHG.DATE|7|4|)
  73.     PG.STRG = (PAGE)
  74.     DATE.TIME.FLD = (STDDAYS+STDMONTH+STDAYH+STDYEAR+TIME.STRG+AM.PM)
  75.     ret
  76. NO.RECS:
  77.     pmsg("There are no records in the PATIENT  file "|1|24|Y|||)
  78. EXIT:
  79.     run("recmenu")
  80. DOB:
  81.     run("DOB")
  82. RELATED:
  83.     RP.REF = (RECORD.NUMBER)
  84.     find(M|RP.REF|RETRET|)
  85. NEXT_REL:
  86.     pfmt(8|||N|N|)
  87.     find(N|RP|RETRET|)
  88.     if RP.REF <> (RECORD.NUMBER) goto RETRET
  89.     goto NEXT_REL
  90. RETRET:
  91.     ret
  92. \R REPORT  
  93.                                            PATLIST - Database File Listing for: PATIENT
  94.                                      &
  95.                                                         Page # &
  96. PATIENT.NAME                 ADDRESS1                AREA                  DATE.OF.BIRTH
  97. ---------------------------  ----------------------  --------------------- ----------
  98. &                            &                      &                      &
  99. Total number of records printed:
  100.    &                              &        &          &                               &    & &
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141. \
  142. DATE.TIME.FLD
  143. PAGE
  144. PATIENT.NAME
  145. ADDRESS1
  146. AREA
  147. DATE.OF.BIRTH
  148. MEDICATION
  149. DOSE
  150. QUANTITY
  151. DIRECTIONS
  152. RP.DISP.QTY
  153. AUTO.ON.DEMAND
  154. RP.NEXT.DUE
  155. \
  156. \STSELECT  
  157. Selection screen for PATLIST - Database File Listing for: PATIENT
  158. ================================================================================
  159.  ADDRESS
  160.  FROM- &                           ENTER BLANKS HERE FOR FULL LISTING OR EXACT
  161.  THRU- &                           START AND FINISH NAMES.
  162.  
  163.  
  164. THIS PROGRAM WILL ALWAYS LIST OUT IN ORDER OF ADDRESS - IF YOU WANT ORDER
  165. AND INCLUDES RP'S
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181. \
  182. SELECT.FLD.F1
  183. SELECT.FLD.T1
  184. \
  185.  
  186.